Edinburgh’s road network

Edinburgh’s implementation zones

Edinburgh’s control zones

Time series analysis

Mapping accidents with roads: 2013

##                    LAYER Accident_Index
## 1 20mph existing streets             47
## 2    20mph local streets             73
## 3     20mph main streets            180
## 4                  30mph             96
##   Speed_limit Accident_Index
## 1          20             25
## 2          30            371

Mapping accidents with roads: 2014

##                    LAYER Accident_Index
## 1 20mph existing streets            159
## 2    20mph local streets            155
## 3     20mph main streets            386
## 4                  30mph            261
##   Speed_limit Accident_Index
## 1          20             37
## 2          30            924

Mapping accidents with roads: 2015

##                    LAYER Accident_Index
## 1 20mph existing streets            105
## 2    20mph local streets            152
## 3     20mph main streets            328
## 4                  30mph            249
##   Speed_limit Accident_Index
## 1          20             34
## 2          30            800

Mapping accidents with roads: 2016

##                    LAYER Accident_Index
## 1 20mph existing streets             47
## 2    20mph local streets             54
## 3     20mph main streets             25
## 4                  30mph             27
##   Speed_limit Accident_Index
## 1          20              8
## 2          30            145

Mapping accidents with roads: 2018

##                    LAYER Accident_Index
## 1 20mph existing streets             62
## 2    20mph local streets             83
## 3     20mph main streets            181
## 4                  30mph            140
##   Speed_limit Accident_Index
## 1          20            288
## 2          30            178

Mapping accidents with roads: 2019

##                    LAYER Accident_Index
## 1 20mph existing streets             33
## 2    20mph local streets             50
## 3     20mph main streets             87
## 4                  30mph             75
##   Speed_limit Accident_Index
## 1          20            153
## 2          30             92

Count pre 20mph

##                    LAYER Accident_Index
## 1 20mph existing streets            358
## 2    20mph local streets            434
## 3     20mph main streets            919
## 4                  30mph            633
##   Speed_limit Accident_Index
## 1          20            104
## 2          30           2240

Count post 20mph

##                    LAYER Accident_Index
## 1 20mph existing streets             95
## 2    20mph local streets            133
## 3     20mph main streets            268
## 4                  30mph            215
##   Speed_limit Accident_Index
## 1          20            441
## 2          30            270

Output column: Layer

##     ID Speed_limit              LAYER
## 1 1404          30              30mph
## 2  923          30 20mph main streets
## 3 2315          30              30mph
## 4 1504          30              30mph
## 5 2183          30              30mph
## 6  143          30 20mph main streets

Table: Average annual road traffic collision rates in the city of Edinburgh ( GIS )

Table 1: Average annual road traffic collision rates in the city of Edinburgh (GIS)
Type collisions pre-20mph collisions post-20mph rate pre-20mph rate post-20mph diff in rates Perc.diff.rates
Streets at 30mph 633 215 211.00 215 4.00 2
Streets at 20mph 358 95 119.33 95 -24.33 -20
Streets at 30mph changed to 20mph 1353 401 451.00 401 -50.00 -11
All streets 2344 711 781.33 711 -70.33 -9

Table: Average annual road traffic collision rates in the city of Edinburgh ( Stats19 )

Table 2: Average annual road traffic collision rates in the city of Edinburgh (Stats19)
Type collisions pre-20mph collisions post-20mph rate pre-20mph rate post-20mph diff in rates Perc.diff.rates
Streets at 20mph 104 441 34.67 441 406.33 1172
Streets at 30mph 2240 270 746.67 270 -476.67 -64
All streets 2344 711 781.33 711 -70.33 -9

Effect estimate ( GIS )

Effect estimate(GIS)
Tax year 2013/14 2014/15 2015/16 2018/19
Annual number of collisions 949 860 535 711
Effect estimate -14.58

Effect estimate ( Stats19 )

Effect estimate(Stats19)
Tax year 2013/14 2014/15 2015/16 2018/19
Annual number of collisions 949 860 535 711
Effect estimate -14.58

Mapping accidents with implementation zones: 2013

##   ImplementationZone Accident_Index
## 1                  1             72
## 2                  2            104
## 3                  3            133
## 4                  4             38
## 5                  5             54
## 6                  6             26
## 7                  7             14

Mapping accidents with implementation zones: 2014

##   ImplementationZone Accident_Index
## 1                  1            168
## 2                  2            269
## 3                  3            290
## 4                  4             92
## 5                  5            114
## 6                  6             84
## 7                  7             40

Mapping accidents with implementation zones: 2015

##   ImplementationZone Accident_Index
## 1                  1            155
## 2                  2            208
## 3                  3            264
## 4                  4             63
## 5                  5            113
## 6                  6             80
## 7                  7             26

Mapping accidents with implementation zones: 2016

##   ImplementationZone Accident_Index
## 1                  1             96
## 2                  2            120
## 3                  3            141
## 4                  4             37
## 5                  5             41
## 6                  6             44
## 7                  7             15

Mapping accidents with implementation zones: 2018

##   ImplementationZone Accident_Index
## 1                  1             88
## 2                  2            120
## 3                  3            150
## 4                  4             48
## 5                  5             53
## 6                  6             38
## 7                  7             17

Mapping accidents with implementation zones: 2019

##   ImplementationZone Accident_Index
## 1                  1             42
## 2                  2             68
## 3                  3             77
## 4                  4             28
## 5                  5             21
## 6                  6             15
## 7                  7              4

Output column: Implementation Zone

##   Accident_Index Speed_limit ImplementationZone
## 1  2013950000001          30                  1
## 2  2013950000002          30                  2
## 3  2013950000003          30                  2
## 4  2013950000007          30                  1
## 5  2013950000010          30                  4
## 6  2013950000058          20                  7
s_pre <-s_13 + s_14 + s_15 + s_16
s_pre$ImplementationZone <- s_13$ImplementationZone 
s_post <-s_18 + s_19
s_post$ImplementationZone <- s_13$ImplementationZone 

zone_1a <- s_pre[s_pre$ImplementationZone=="1",2]
zone_1b <- s_pre[s_pre$ImplementationZone=="7",2]
zone_3 <- s_pre[s_pre$ImplementationZone=="3",2]
zone_4 <- s_pre[s_pre$ImplementationZone=="4",2]
zone_5 <- s_pre[s_pre$ImplementationZone=="5",2]
zone_6 <- s_pre[s_pre$ImplementationZone=="6",2]
all <- sum(zone_1a,zone_1b,zone_3,zone_4,zone_5,zone_6 )

zone_1a_p <- s_post[s_post$ImplementationZone=="1",2]
zone_1b_p <- s_post[s_post$ImplementationZone=="7",2]
zone_3_p <- s_post[s_post$ImplementationZone=="3",2]
zone_4_p <- s_post[s_post$ImplementationZone=="4",2]
zone_5_p <- s_post[s_post$ImplementationZone=="5",2]
zone_6_p <- s_post[s_post$ImplementationZone=="6",2]
all_p <- sum(zone_1a_p,zone_1b_p,zone_3_p,zone_4_p,zone_5_p,zone_6_p)

collisions_pre_20mph <- c(zone_1a,zone_1b,zone_3,zone_4,zone_5,zone_6,all)
collisions_post_20mph <- c(zone_1a_p,zone_1b_p,zone_3_p,zone_4_p,zone_5_p,zone_6_p,all_p)

rate_pre_20mph <- round(collisions_pre_20mph/3,2)
rate_post_20mph <- round(collisions_post_20mph/1,2)

diff_in_rates <- - rate_pre_20mph + rate_post_20mph
percentage_diff_in_rates <- round(diff_in_rates/rate_pre_20mph,2)

type <- c("1a","1b","3","4","5","6","All zones")
df <- data.frame(type,collisions_pre_20mph,collisions_post_20mph,rate_pre_20mph,rate_post_20mph,diff_in_rates,percentage_diff_in_rates * 100)
colnames(df)=c("Implementation zone", "collisions pre-20mph","collisions post-20mph","rate pre-20mph", "rate post-20mph","diff in rates", "Perc.diff.rates")

kable(df,caption = "Table 3: Average annual road traffic collision rates in the city of Edinburgh per implementation zone") %>% kable_styling(bootstrap_options = c("striped", "hover"))
Table 3: Average annual road traffic collision rates in the city of Edinburgh per implementation zone
Implementation zone collisions pre-20mph collisions post-20mph rate pre-20mph rate post-20mph diff in rates Perc.diff.rates
1a 491 130 163.67 130 -33.67 -21
1b 95 21 31.67 21 -10.67 -34
3 828 227 276.00 227 -49.00 -18
4 230 76 76.67 76 -0.67 -1
5 322 74 107.33 74 -33.33 -31
6 234 53 78.00 53 -25.00 -32
All zones 2200 581 733.33 581 -152.33 -21

Total accidents per zone

##   ImplementationZone Accident_Index
## 1                  1            621
## 2                  2            889
## 3                  3           1055
## 4                  4            306
## 5                  5            396
## 6                  6            287
## 7                  7            116

Control zone 1a:City center –> George St/Harbour, Aberdeen

## [1] 81

Control zone 1b:Rural west –> Tay Bridgehead & St Andrews

## [1] 58

Control zone 3:South central –> Dundee

## [1] 441

Control zone 4:North west -> Renfrew North, Renfrew South & Gallowhill, Paisley North West

## [1] 269

Control zone 5:West –> Glasgow Kelvin

## [1] 972

Control zone 6:South –> Paisley

## [1] 386

Updated dataset for Edinburgh

##   Accident_Index Speed_limit                  LAYER ImplementationZone
## 1        0000419          20     20mph main streets                  2
## 2        0000519          20    20mph local streets                  1
## 3        0001019          20                  30mph                  2
## 4        0001419          30                  30mph                  4
## 5        0002119          30                  30mph                  5
## 6        0002319          20 20mph existing streets                  3